home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64 / S U P E R T A P (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  66 lines
  1. 0 xm=53264:x=53248:d=-1:ga=72:ee=0:ka=255:poke53269,0
  2. 1 ifpeek(50307)<>120then5
  3. 2 poke50257,8:poke50259,001:poke50260,017:poke50261,074:poke50262,026
  4. 5 t$="[147][156]             [211]uper[212]ape-[196] [201][201]             [146][144]":poke53276,1
  5. 6 a=832:b=927:fori=atob:readp:pokei,p:next:poke2040,13:poke53285,2:poke53286,0
  6. 10 poke53281,15:poke53280,15:print"[147][144]"chr$(14)chr$(8):poke53287,14
  7. 20 printt$
  8. 30 print:print"[196]aten vom [195]-64 auf andere [210]echner ueber-";
  9. 40 print"tragen? [205]it [211]uper[212]ape kein [208]roblem."
  10. 50 print:print"[205]it diesem [204]ade- und [211]peicherverfahren"
  11. 60 print"fuer [203]assette stellen wir [201]hnen nicht"
  12. 70 print"nur das unseres [215]issens derzeit schnell-";
  13. 80 print"ste [208]rogramm dieser [193]rt zur [214]erfuegung"
  14. 90 print"(zwoelfmal schneller als die [195]ommodore-"
  15. 100 print"[210]outinen), sondern auch eine [211]chnitt-"
  16. 110 print"stelle zu zahlreichen anderen [210]echner-"
  17. 120 print"modellen.":print
  18. 130 print"[211]elbst [194]esitzer der [198]loppy 1541 werden"
  19. 140 print"[193]ugen machen: [211]uper[212]ape stellt  ge-"
  20. 150 print"schwindigkeitsmaessig auch diese in den"
  21. 160 print"[211]chatten."
  22. 200 gosub1000
  23. 210 printt$
  24. 220 print:print"[215]ie gewohnt, koennen [211]ie jetzt mit den"
  25. 230 print"[212]asten [195][212][210][204] und s das [208]rogramm [211]uper[212]ape";
  26. 240 print"auf [201]hre eigene [203]assette oder [196]iskette"
  27. 245 print"abspeichern.":print
  28. 260 print"[193]usfuehrliche [197]rlaeuterungen zur "
  29. 270 print"[194]edienung und [198]unktion finden [211]ie"
  30. 280 print"im [194]eiheft.":print
  31. 290 print:print:print::print:print:print"[208][211]: [196]ieser [197]rlaeuterungstext wird na-"
  32. 295 print"tuerlich nicht mit abgespeichert!"
  33. 298 nd=peek(162):ifint(nd/7)=nd/7thengosub2000
  34. 299 gosub1000
  35. 300 run
  36. 1000 poke198,0:bl$=">[146][144]"
  37. 1010 poke214,22:poke211,26:sys58640:print"[156][215]eiter: [212]aste[146][144]"
  38. 1015 poke214,22:poke211,24:sys58640:print""bl$;
  39. 1020 fori=0to80:getw$:ifw$theni=90
  40. 1030 next:ifi>85thenreturn
  41. 1040 poke214,22:poke211,24:sys58640:printbl$;
  42. 1050 fori=0to80
  43. 1060 getw$:ifw$theni=90
  44. 1070 next:ifi>85thenreturn
  45. 1080 goto1015
  46. 2000 pokex,ga:pokexm,1:poke53249,130:poke53277,1:poke53271,1:poke53269,1:
  47. 2100 gosub60000:return
  48. 10000 data0,0,0,0,0,0,0,0,0,0,10,0,0,10,0,0
  49. 10003 data63,252,3,255,255,12,61,255,12,61,255,48,53,127,48,61
  50. 10004 data255,48,61,255,63,255,255,21,85,85,95,213,253,124,247,207
  51. 10005 data115,55,51,51,55,51,60,243,207,15,192,252,0,0,0,255
  52. 10006 data173,0,208,208,8,173,16,208,240,13,206,16,208,173,0,208
  53. 10007 data56,233,6,141,0,208,96,169,0,141,21,208,96,49,0,208
  54. 60000 si=54272:pokesi+24,15:z=0
  55. 60010 pokesi,0:pokesi+1,34
  56. 60020 pokesi+5,16+10:pokesi+6,5*16
  57. 60030 forj=3to15:sys896
  58. 60040 pokesi+4,33:pokesi+1,60+j*3
  59. 60060 pokesi+4,32
  60. 60080 next
  61. 60090 forj=15to3step-1:sys896
  62. 60100 pokesi+4,33:pokesi+1,060+j*3
  63. 60120 pokesi+4,32
  64. 60140 nextj:z=z+1:ifz<2then60030
  65. 60150 poke53269,0:return
  66.